home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb8.arc / INUSE.PAS < prev    next >
Pascal/Delphi Source File  |  1985-02-23  |  1KB  |  59 lines
  1. {.pl66}
  2. {.po5}
  3.  
  4. Program INUSE;                         { Jon Wichman }
  5.  
  6.   var pass_in,password : string[8];
  7.       comment          : string[80];
  8.  
  9. const top    =  '#3';
  10.       bottom =  '#4';
  11.       wide   =  '#6';
  12.       esc    =   ^[;
  13. {.cp10}
  14. procedure WriteInuse;
  15.   begin;
  16.     while not KeyPressed do
  17.       begin;
  18.         ClrScr;               {Clear the screen.}
  19.         gotoXY(1,1);
  20.         gotoXY(12,30);
  21.         writeln;
  22.         HighVideo;
  23.         writeln(esc,wide,esc,top,'I N U S E   !!');
  24.         writeln(esc,wide,esc,bottom,'I N U S E   !!');
  25.         if comment <> '' then
  26.         begin;
  27.           writeln;
  28.           writeln(trm,comment);
  29.         end;
  30.         delay(1000);
  31.       end;
  32.   end;
  33. {.cp10}
  34.  
  35. procedure paswrd;
  36.   begin;
  37.         write('Password: ');
  38.         read(kbd,pass_in);
  39.   end;
  40. {.cp10}
  41.  
  42. begin
  43.   write('Enter Password (8 Char. Max.): ');
  44.   read(kbd,password);
  45.   writeln;
  46.   write('Comment ? <Optional>: ');
  47.   read(con,comment);
  48.   writeInuse;
  49.   if KeyPressed then
  50.       begin;
  51.         paswrd;
  52.       end;
  53. while pass_in <> password do
  54.    begin;
  55.      WriteInuse;
  56.      paswrd;
  57.    end;
  58.   ClrScr;
  59. end.